function jtvec = JTvec_TDIP(invP,etaModel,j,v)

q = projTHs(invP,v);
w = calcAhTInv(invP,etaModel,q);
jtvec = -GetaT_vec(invP,j,w);

